home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1997 August / Oasis demo.iso / Office / Claris13 / CLARIS.CST / 00061_Script_61 < prev    next >
Text File  |  1997-03-20  |  569b  |  23 lines
  1. on xtracopywip
  2.   if the platform contains   "Mac" then
  3.     
  4.     global warnwip
  5.     set warnwip = "on"
  6.     put "hello"
  7.   else
  8.     
  9.     openXLib "Xtras\filecopy"  -- custom xtra
  10.     
  11.     set filename = the pathName&"screens\"&the name of cast the mousecast
  12.     
  13.     if fileName > "" then
  14.       set wFileName = doSaveAsDlg(the pathName&"screens\"&the name of cast the mousecast, "Tiffs@*.tif")
  15.       if wFileName > "" then
  16.         copyFile(wFileName, fileName)
  17.       end if  
  18.     end if
  19.     
  20.     closeXLib "Xtras\filecopy"
  21.   end if
  22.   
  23. end xtracopywip